#LibPath "..\library"
#Include "..\include\xrtl.bi"



Dim a As ZString * 260 = "E9%9D%92%E5%B2%9B%E6%96%B0%E9%97%BB"

Dim astr As ZString * 260
Dim ts As String

For i As Integer = 0 To strLen(a)
	If a[i] = 37 Then
		astr &= Chr(CLng("&H" & ts))
		ts = ""
	Else
		ts &= Chr(a[i])
	EndIf
Next
astr &= Chr(CLng("&H" & ts))
Print *xRtl.Charset.U2A(astr)
Sleep
